home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / qscripts.arc / MCI-MAIL.SCR < prev    next >
Encoding:
Text File  |  1986-03-02  |  2.2 KB  |  97 lines
  1. .LINKED SCRIPT FOR MCI-MAIL BASIC SERVICE;
  2. .LINK IT TO YOUR QMODEM PHONE DIRECTORY ENTRY FOR MCI-MAIL.
  3. .AS IS, THIS SCRIPT PRINTS ALL YOUR MAIL IF YOU HAVE ANY,
  4. .THEN DISCONNECTS YELLS (BEEPS) FOR YOUR ATTENTION.
  5.  
  6. .USE YOUR WORD PROCESSOR TO EDIT THIS FILE TO INCLUDE
  7. .  [1] Your MCI-Mail username
  8. .  [2] Your MCI-Mail password
  9. .  [3] Any MCI-Mail command(s)
  10. .      (examples are for standard, not advanced service)
  11.  
  12. .COMMENTS ARE PREDEDED BY A PERIOD & REFER TO THE NEXT COMMAND LINE
  13.  
  14. .Display message on-screen only
  15. NOTE ** LOGON TO MCI-MAIL VIA DIRECT CONNECT **
  16.  
  17. .BEEP.SCR must be in your script directory
  18. $1      $2
  19. SCRIPT  BEEP.SCR   "MCI-MAIL.SCR"
  20. BEEPRET:
  21.  
  22. .The next line says to WAITFOR 60 seconds before halting script
  23. TIMEOUT 60
  24.  
  25. .Set key parameters for MCI-Mail
  26. TURNON XON/XOFF
  27. TURNOFF ECHO LINEFEED
  28.  
  29. .Call MCI-Mail;
  30. .phone number, bps, comm parameters depend on directory entry #
  31. .for local #s contact MCI-Mail at 800-MCI-MAIL
  32.  
  33. .MCI-Mail 'logon' is CR
  34. SEND "{"
  35.  
  36. .Wait for MCI-Mail to request your user name
  37. WAITFOR "Please enter your user name: "
  38.  
  39. .[1] Send your MCI-Mail user name followed by CR
  40. SEND "USERNAME{"
  41.  
  42. .Wait for MCI-Mail to request your password
  43. WAITFOR "Password: "
  44.  
  45. .[2] Send your password
  46. SEND "PASSWORD{"
  47.  
  48. .If there are no messages, logoff immediately, otherwise print the mail
  49. TIMEOUT 15      MAIL
  50. WAITFOR "no messages"
  51. GOTO    END
  52.  
  53. MAIL:
  54. TIMEOUT 60
  55.  
  56. .Turn on your printer
  57. TURNON PRINT
  58.  
  59. .Wait for MCI-Mail to Request your input
  60. WAITFOR "<RETURN> to continue"
  61.  
  62. .Send a CR
  63. SEND "{"
  64.  
  65. .Wait for MCI-Mail to Request your input
  66. WAITFOR "or EXIT):"
  67.  
  68. .[3] Select PRINT to print messages nonstop
  69. SEND "PRINT{"
  70.  
  71. .Wait for MCI-Mail to Request your input
  72. WAITFOR "(or MENU or EXIT):"
  73.  
  74. .[3] Select ALL to print incoming messages only
  75. .    or INBOX to print just incoming messages
  76. SEND "ALL{"
  77.  
  78. END:
  79.  
  80. .Wait for MCI-Mail to Request your input
  81. WAITFOR "Press <RETURN> to continue"
  82.  
  83. .Send a CR
  84. SEND "{"
  85.  
  86. .Wait for MCI-Mail to Request your input
  87. WAITFOR "Command (or MENU or EXIT):"
  88.  
  89. .[3] Select EXIT to log off
  90. SEND "EXIT{"
  91.  
  92. .Disconnect from Phone Line
  93. HANGUP
  94.  
  95. .Discontinue script processing; return control to keyboard
  96. SCRIPT  END.SCR 
  97.